home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 July: Mac OS SDK / Dev.CD Jul 96 SDK / Dev.CD Jul 96 SDK1.toast / Development Kits (Disc 1) / OpenDoc Development Framework / Developer University / DUProjects / Finance SOM Library / •SOM / SFinance.xh < prev    next >
Encoding:
Text File  |  1996-04-01  |  9.9 KB  |  361 lines  |  [TEXT/CWIE]
  1.  
  2. /*
  3.  * This file was generated by the SOM Compiler.
  4.  * FileName: :SFinance.xh.
  5.  * Generated using:
  6.  *     SOM Precompiler somipc: 2.18
  7.  *     SOM Emitter emitxh.dll: 2.33
  8.  */
  9.  
  10. #ifndef SOM_Module_DevUniv_defined
  11. #define SOM_Module_DevUniv_defined 1
  12. #include <som.xh>
  13.  
  14. /*
  15.  * Start of user-defined types:
  16.  */
  17. class SOMClass;
  18. class SOMObject;
  19.  
  20. /*
  21.  * End of user-defined types.
  22.  */
  23. #endif /* SOM_Module_DevUniv_defined */
  24.  
  25. #ifndef SOM_DevUniv_SFinance_xh
  26. #define SOM_DevUniv_SFinance_xh
  27.  
  28. class DevUniv_SFinance;
  29.  
  30. #define DevUniv_SFinance_MajorVersion 1
  31. #define DevUniv_SFinance_MinorVersion 0
  32.  
  33. /* C++ SOM defs */
  34. #include <somcls.xh>
  35. #include <somcm.xh>
  36.  
  37. /* C++ parent defs */
  38. #ifndef SOM_SOMObject_xh
  39. #include <somobj.xh>
  40. #endif
  41.  
  42. #ifndef DevUniv_SFinance_API
  43. #define DevUniv_SFinance_API
  44. /*
  45.  * -- The Class API
  46.  */
  47.  
  48. /*
  49.  * Start of user-defined types:
  50.  */
  51.  
  52. /*
  53.  * End of user-defined types.
  54.  */
  55.  
  56. #ifdef OLDIBMSOMAPISUPPORT
  57. #define DevUniv_SFinanceCClassData DevUniv_SFinanceClassData
  58. #define DevUniv_SFinanceNewClass(major,minor) somNewVersionedClassReference(DevUniv_SFinance,major,minor)
  59. #endif
  60.  
  61. /* define xxxMetaClass macro to facilitate (cls ## MetaClass) */
  62. #define DevUniv_SFinanceMetaClass SOMClass
  63.  
  64.  
  65. /* The API to the DevUniv_SFinance class object, and the methods it introduces. */
  66. SOMEXTERN struct DevUniv_SFinanceClassDataStructure {
  67. #ifdef OLDIBMSOMAPISUPPORT
  68.     SOMClass            *classObject;    /* always zero, use somNewClassReference instead */
  69. #else
  70.     long zero;
  71. #endif
  72.     somStaticClassInfo *sci;
  73.     somDToken        instanceDataToken;
  74.     long reserved [3];
  75.     somMToken FutureValue;
  76.     somMToken FutureValueWithPayments;
  77.     somMToken AnnuityPresentValue;
  78.     somMToken AnnuityMonths;
  79.     somMToken Payment;
  80.     somMToken LoanAmount;
  81.     somMToken LoanMonths;
  82.     somMToken InterestRate;
  83.     somMToken BalloonPayment;
  84. } SOMDLINK DevUniv_SFinanceClassData;
  85.  
  86. #if !defined(DevUniv_SFinance_Class_Source) && !defined(SOM_Module_sfinance_Source)
  87. #if PRAGMA_IMPORT_SUPPORTED
  88. #pragma import list DevUniv_SFinanceClassData
  89. #endif
  90. #endif
  91.  
  92.  
  93. /*
  94.  * -- Typedefs and inline method declarations for left path inherited methods
  95.  * -- are omitted because this compilation had -museinheritedmethods in effect
  96.  */
  97.  
  98.  
  99. /*
  100.  * -- Typedefs for DevUniv_SFinance Method Procedures
  101.  */
  102. SOMEXTERN {
  103. typedef double   (* SOMLINK somTD_DevUniv_SFinance_FutureValue)(DevUniv_SFinance *somSelf, Environment *ev,
  104.         double presentValue,
  105.         double annualInterestPercent,
  106.         short compoundsPerYear,
  107.         double years);
  108. typedef double   (* SOMLINK somTD_DevUniv_SFinance_FutureValueWithPayments)(DevUniv_SFinance *somSelf, Environment *ev,
  109.         double payment,
  110.         short paymentsPerYear,
  111.         short compoundsPerYear,
  112.         double annualInterestPercent,
  113.         double years);
  114. typedef double   (* SOMLINK somTD_DevUniv_SFinance_AnnuityPresentValue)(DevUniv_SFinance *somSelf, Environment *ev,
  115.         double payment,
  116.         double annualInterestPercent,
  117.         short paymentsPerYear,
  118.         double years);
  119. typedef double   (* SOMLINK somTD_DevUniv_SFinance_AnnuityMonths)(DevUniv_SFinance *somSelf, Environment *ev,
  120.         double annuity,
  121.         double monthlyWithdrawal,
  122.         double annualInterestPercent);
  123. typedef double   (* SOMLINK somTD_DevUniv_SFinance_Payment)(DevUniv_SFinance *somSelf, Environment *ev,
  124.         double amountBorrowed,
  125.         double annualInterestPercent,
  126.         double years);
  127. typedef double   (* SOMLINK somTD_DevUniv_SFinance_LoanAmount)(DevUniv_SFinance *somSelf, Environment *ev,
  128.         double monthlyPayment,
  129.         double annualInterestPercent,
  130.         double years);
  131. typedef double   (* SOMLINK somTD_DevUniv_SFinance_LoanMonths)(DevUniv_SFinance *somSelf, Environment *ev,
  132.         double amountBorrowed,
  133.         double monthlyPayment,
  134.         double annualInterestPercent);
  135. typedef double   (* SOMLINK somTD_DevUniv_SFinance_InterestRate)(DevUniv_SFinance *somSelf, Environment *ev,
  136.         double amountBorrowed,
  137.         double monthlyPayment,
  138.         double years);
  139. typedef double   (* SOMLINK somTD_DevUniv_SFinance_BalloonPayment)(DevUniv_SFinance *somSelf, Environment *ev,
  140.         double amountBorrowed,
  141.         double monthlyPayment,
  142.         double annualInterestPercent,
  143.         double years);
  144. }
  145.  
  146. #endif /* DevUniv_SFinance_API */
  147.  
  148.  
  149. /*
  150.  * -- This emitter treats Method Tokens as Thunks by default.
  151.  * -- Use the sc modifier "nothunks" to change this default
  152.  */
  153. #undef somresolve_
  154. #define somresolve_(obj,mToken) ((somMethodProc*)((void)obj, mToken))
  155.  
  156. /*
  157.  * -- The C++ Wrapper Class for DevUniv_SFinance
  158.  */
  159. class DevUniv_SFinance : public SOMObject
  160. {
  161. public:
  162.  
  163. // DevUniv_SFinance::new registers use of the class object, and then uses somNew
  164. // to allocate memory and load the object method table pointer. 
  165. void *operator new(size_t size)
  166. {
  167.     SOM_IgnoreWarning(size);
  168.     // Allocate memory using the default allocator for DevUniv_SFinance, and
  169.     // clear mem & set method table pointer, call basic initialization
  170. #ifdef SOMCHKNULL
  171.     void * __somResult = (void *)
  172.       somNewObject(DevUniv_SFinance);
  173.     SOMCHKNULL(__somResult);
  174.     return __somResult;
  175. #else
  176.     return (void*) somNewObject(DevUniv_SFinance);
  177. #endif
  178. }
  179.  
  180. // DevUniv_SFinance::delete uses the default deallocator for the object's class.
  181. void operator delete(void * obj)
  182. {
  183.     if (obj) {
  184.         SOM_Resolve(obj,SOMObject,somFree)
  185.            ( (SOMObject*) obj );
  186.     }
  187. }
  188.  
  189. /* method: FutureValue */
  190. double   FutureValue(Environment *ev,
  191.         double presentValue,
  192.         double annualInterestPercent,
  193.         short compoundsPerYear,
  194.         double years)
  195. {
  196.    #ifdef SOMCHKEXCEPT
  197.    double __somResult = 
  198.       SOM_ResolveD(this,DevUniv_SFinance,DevUniv_SFinance,FutureValue)
  199.     (this,ev,presentValue,annualInterestPercent,compoundsPerYear,years);
  200.       SOMCHKEXCEPT;
  201.    return __somResult;
  202. #else
  203.    return SOM_ResolveD(this,DevUniv_SFinance,DevUniv_SFinance,FutureValue)
  204.     (this,ev,presentValue,annualInterestPercent,compoundsPerYear,years);
  205. #endif
  206. }
  207.  
  208. /* method: FutureValueWithPayments */
  209. double   FutureValueWithPayments(Environment *ev,
  210.         double payment,
  211.         short paymentsPerYear,
  212.         short compoundsPerYear,
  213.         double annualInterestPercent,
  214.         double years)
  215. {
  216.    #ifdef SOMCHKEXCEPT
  217.    double __somResult = 
  218.       SOM_ResolveD(this,DevUniv_SFinance,DevUniv_SFinance,FutureValueWithPayments)
  219.     (this,ev,payment,paymentsPerYear,compoundsPerYear,annualInterestPercent,years);
  220.       SOMCHKEXCEPT;
  221.    return __somResult;
  222. #else
  223.    return SOM_ResolveD(this,DevUniv_SFinance,DevUniv_SFinance,FutureValueWithPayments)
  224.     (this,ev,payment,paymentsPerYear,compoundsPerYear,annualInterestPercent,years);
  225. #endif
  226. }
  227.  
  228. /* method: AnnuityPresentValue */
  229. double   AnnuityPresentValue(Environment *ev,
  230.         double payment,
  231.         double annualInterestPercent,
  232.         short paymentsPerYear,
  233.         double years)
  234. {
  235.    #ifdef SOMCHKEXCEPT
  236.    double __somResult = 
  237.       SOM_ResolveD(this,DevUniv_SFinance,DevUniv_SFinance,AnnuityPresentValue)
  238.     (this,ev,payment,annualInterestPercent,paymentsPerYear,years);
  239.       SOMCHKEXCEPT;
  240.    return __somResult;
  241. #else
  242.    return SOM_ResolveD(this,DevUniv_SFinance,DevUniv_SFinance,AnnuityPresentValue)
  243.     (this,ev,payment,annualInterestPercent,paymentsPerYear,years);
  244. #endif
  245. }
  246.  
  247. /* method: AnnuityMonths */
  248. double   AnnuityMonths(Environment *ev,
  249.         double annuity,
  250.         double monthlyWithdrawal,
  251.         double annualInterestPercent)
  252. {
  253.    #ifdef SOMCHKEXCEPT
  254.    double __somResult = 
  255.       SOM_ResolveD(this,DevUniv_SFinance,DevUniv_SFinance,AnnuityMonths)
  256.     (this,ev,annuity,monthlyWithdrawal,annualInterestPercent);
  257.       SOMCHKEXCEPT;
  258.    return __somResult;
  259. #else
  260.    return SOM_ResolveD(this,DevUniv_SFinance,DevUniv_SFinance,AnnuityMonths)
  261.     (this,ev,annuity,monthlyWithdrawal,annualInterestPercent);
  262. #endif
  263. }
  264.  
  265. /* method: Payment */
  266. double   Payment(Environment *ev,
  267.         double amountBorrowed,
  268.         double annualInterestPercent,
  269.         double years)
  270. {
  271.    #ifdef SOMCHKEXCEPT
  272.    double __somResult = 
  273.       SOM_ResolveD(this,DevUniv_SFinance,DevUniv_SFinance,Payment)
  274.     (this,ev,amountBorrowed,annualInterestPercent,years);
  275.       SOMCHKEXCEPT;
  276.    return __somResult;
  277. #else
  278.    return SOM_ResolveD(this,DevUniv_SFinance,DevUniv_SFinance,Payment)
  279.     (this,ev,amountBorrowed,annualInterestPercent,years);
  280. #endif
  281. }
  282.  
  283. /* method: LoanAmount */
  284. double   LoanAmount(Environment *ev,
  285.         double monthlyPayment,
  286.         double annualInterestPercent,
  287.         double years)
  288. {
  289.    #ifdef SOMCHKEXCEPT
  290.    double __somResult = 
  291.       SOM_ResolveD(this,DevUniv_SFinance,DevUniv_SFinance,LoanAmount)
  292.     (this,ev,monthlyPayment,annualInterestPercent,years);
  293.       SOMCHKEXCEPT;
  294.    return __somResult;
  295. #else
  296.    return SOM_ResolveD(this,DevUniv_SFinance,DevUniv_SFinance,LoanAmount)
  297.     (this,ev,monthlyPayment,annualInterestPercent,years);
  298. #endif
  299. }
  300.  
  301. /* method: LoanMonths */
  302. double   LoanMonths(Environment *ev,
  303.         double amountBorrowed,
  304.         double monthlyPayment,
  305.         double annualInterestPercent)
  306. {
  307.    #ifdef SOMCHKEXCEPT
  308.    double __somResult = 
  309.       SOM_ResolveD(this,DevUniv_SFinance,DevUniv_SFinance,LoanMonths)
  310.     (this,ev,amountBorrowed,monthlyPayment,annualInterestPercent);
  311.       SOMCHKEXCEPT;
  312.    return __somResult;
  313. #else
  314.    return SOM_ResolveD(this,DevUniv_SFinance,DevUniv_SFinance,LoanMonths)
  315.     (this,ev,amountBorrowed,monthlyPayment,annualInterestPercent);
  316. #endif
  317. }
  318.  
  319. /* method: InterestRate */
  320. double   InterestRate(Environment *ev,
  321.         double amountBorrowed,
  322.         double monthlyPayment,
  323.         double years)
  324. {
  325.    #ifdef SOMCHKEXCEPT
  326.    double __somResult = 
  327.       SOM_ResolveD(this,DevUniv_SFinance,DevUniv_SFinance,InterestRate)
  328.     (this,ev,amountBorrowed,monthlyPayment,years);
  329.       SOMCHKEXCEPT;
  330.    return __somResult;
  331. #else
  332.    return SOM_ResolveD(this,DevUniv_SFinance,DevUniv_SFinance,InterestRate)
  333.     (this,ev,amountBorrowed,monthlyPayment,years);
  334. #endif
  335. }
  336.  
  337. /* method: BalloonPayment */
  338. double   BalloonPayment(Environment *ev,
  339.         double amountBorrowed,
  340.         double monthlyPayment,
  341.         double annualInterestPercent,
  342.         double years)
  343. {
  344.    #ifdef SOMCHKEXCEPT
  345.    double __somResult = 
  346.       SOM_ResolveD(this,DevUniv_SFinance,DevUniv_SFinance,BalloonPayment)
  347.     (this,ev,amountBorrowed,monthlyPayment,annualInterestPercent,years);
  348.       SOMCHKEXCEPT;
  349.    return __somResult;
  350. #else
  351.    return SOM_ResolveD(this,DevUniv_SFinance,DevUniv_SFinance,BalloonPayment)
  352.     (this,ev,amountBorrowed,monthlyPayment,annualInterestPercent,years);
  353. #endif
  354. }
  355.  
  356. };   /* DevUniv_SFinance */
  357.  
  358.  
  359.  
  360. #endif       /* SOM_DevUniv_SFinance_xh */
  361.